home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #04 (1987)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #04 (1987)(Amiga User Gruppe Einzugsgebiet 4000).adf / Quellen / play.asm < prev    next >
Assembly Source File  |  1999-12-31  |  2KB  |  80 lines
  1.  
  2. laenge   equ 22400         ;<=== LAENGE DES SOUNDS
  3. Adresse  equ $7fc00-laenge
  4. speed    equ 280           ;<=== SAMPLING PERIOD
  5.  
  6. DMACONW  EQU   $DFF096
  7. ADKCONW  EQU   $DFF09E
  8. AUD0LCH  EQU   $DFF0A0
  9. AUD1LCH  EQU   $DFF0B0
  10. AUD0LEN  EQU   $DFF0A4
  11. AUD1LEN  EQU   $DFF0B4
  12. AUD0PER  EQU   $DFF0A6
  13. AUD1PER  EQU   $DFF0B6
  14. AUD0VOL  EQU   $DFF0A8
  15. AUD1VOL  EQU   $DFF0B8
  16. _AbsExecBase      equ   4
  17. _LVOOpenLibrary   equ   -552
  18. _LVOInput         equ   -54
  19. _LVOOpen          equ   -30
  20. _LVOClose         equ   -36
  21. _LVORead          equ   -42
  22.  
  23. Existing: EQU 1005
  24.    move.l _AbsExecBase,a6
  25.    move.l #DOS_Name,a1
  26.    clr.l  d0
  27.    jsr    _LVOOpenLibrary(a6)
  28.    move.l d0,a6
  29.    tst.l  d0
  30.    beq    Abort
  31.  
  32.    jsr    _LVOInput(a6)
  33.    move.l d0,StdIn
  34.    beq    Abort
  35.  
  36.    move.l #FName,a0
  37.    clr.b  -1(a0,d0.L)
  38.    move.l a0,d1
  39.    move.l #Existing,d2
  40.    jsr    _LVOOpen(a6)
  41.    move.l d0,FileHandle
  42.    bne    Display_File
  43.    bra    Abort
  44.  
  45. Display_File:
  46.    move.l FileHandle,d1
  47.    move.l #Adresse,d2
  48.    move.l #laenge,d3
  49.    jsr    _LVORead(a6)
  50.    move.l FileHandle,d1
  51.    jsr    _LVOClose(a6)
  52.    MOVE.W #laenge/2,AUD0LEN
  53.    MOVE.W #laenge/2,AUD1LEN
  54.    MOVE.W    #speed,AUD0PER
  55.    MOVE.W    #speed,AUD1PER
  56.    MOVE.W       #64,AUD0VOL
  57.    MOVE.W       #64,AUD1VOL
  58.    MOVE.L #Adresse,AUD0LCH
  59.    MOVE.L #Adresse,AUD1LCH
  60.    MOVE.W #%1000001000000011,DMACONW
  61.    clr.l  d2
  62.    clr.l  d3
  63.    clr.l  d5
  64. Abort:
  65.    clr.l  d0
  66.    rts
  67.  
  68.    SECTION data,DATA
  69. DOS_Name:
  70.    dc.b 'dos.library',0
  71. FName:
  72.    dc.b 'df0:soundfiles/Skubidab',0  ;<=== FILENAME
  73.  
  74.    SECTION mem,BSS
  75. StdIn      ds.l  1
  76. FileHandle:ds.l  1
  77.  
  78.    END
  79.  
  80.